home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 351-375 / disk_361 / xcolor-lib / include_files / xcolor.lib < prev   
Text File  |  1992-05-06  |  4KB  |  177 lines
  1.  
  2. { XCOLOR-LIBRARY Include : KICK-PASCAL
  3.   by Roger Fischlin, Steigerwaldweg 6, 6450 Hanau 7, Germany
  4.   This file is public domain !                                }
  5.  
  6.  
  7. {$if not def GRAPHICS_LIB; incl "graphics.lib"; endif}
  8. {$if not def INTUITION_LIB; incl"intuition.lib"; endif}
  9. {$if not def EXEC_LIBRARIES_H;incl"exec/libraries.h";endif}
  10.  
  11.  
  12. {$if not def XCOLOR_LIB}
  13. Const XCOLOR_LIB='XC';
  14.  
  15.  
  16.  
  17. Type
  18. p_ColourRequester=^cr_ColourRequester;
  19. {p_ColorRequester=^cr_ColourRequester;}
  20. p_HSV=^cr_HSV;
  21.  
  22.  
  23.  
  24. CR_ColourRequester=record;
  25. Screen          : p_Screen;
  26. TextColour      : byte;
  27. BackColour      : byte;
  28. GBorderColour   : byte;
  29. GTextColour     : byte;
  30. Flags           : long;
  31. LeftEdge        : word;
  32. TopEdge         : word;
  33. Font            : p_TextAttr;
  34. DefaultEntries  : Long;
  35. DefaultColourMap: Ptr;
  36. JMPWindow       : Ptr;
  37. JMPMessage      : Ptr;
  38. JMPMode         : Ptr;
  39. JMPDraw         : Ptr;
  40. ScreenTitle     : Str;
  41. DefaultWTitle   : Str;
  42. imClass         : long;
  43. imCode          : word;
  44. imQualifier     : word;
  45. imIAddress      : long;
  46. imMouseX        : Integer;
  47. imMouseY        : Integer;
  48. WindowPointer   : p_Window;
  49. UndoSize        : long;
  50. UndoBuffer      : Ptr;
  51. Undo            : Word;
  52. Colour          : long;
  53. MemorySize      : long;
  54. Memory          : Ptr;
  55. NewWindow       : p_NewWindow;
  56. Mode            : long;
  57. WindowTitle     : Str;
  58. Reserved1       : long;
  59. Reserved2       : long;
  60. Reserved3       : long;
  61. Reserved4       : long;
  62. Reserved5       : long;
  63. Reserved6       : long;
  64. Reserved7       : long;
  65. Reserved8       : long;
  66. Reserved9       : long;
  67. Reserved10      : long;
  68. end;
  69.  
  70.  
  71. CR_HSV=record;
  72. HSV_H : Long;
  73. HSV_S : Long;
  74. HSV_V : Long;
  75. end;
  76.  
  77.  
  78. { the following instruction would create an error message }
  79. {type
  80. XColorBase    = record;
  81. LibNode       : _library;
  82. SegList       : ptr;
  83. IntuitionBase : ptr;
  84. GfxBase       : ptr;
  85. MathBase      : ptr;
  86. List          : ptr;
  87. end;}
  88.  
  89.  
  90. Var XColorBase : ptr;
  91.  
  92. Procedure OpenXColor;
  93.  Begin OpenLib(XcolorBase,'xcolor.library',0) End;
  94.  
  95. Library XColorBase:
  96. -30 : Function  CheckColour(a0: p_ViewPort): Byte;
  97. -36 : Function  ReadRGB4 (a0:p_ViewPort ; d0: Long) : Word;
  98. -42 : Function  WriteRGB4 (a0:p_ViewPort; d0,d1: Long) :Word;
  99. -48 : Function  ColorMapAddress(a0: Ptr; d0 : Long) : Ptr;
  100. -54 : Function  ExchangeColours (a0: p_ViewPort; d0,d1 : Long) : Word;
  101. -60 : Function  CopyColours (a0: p_ViewPort; d0,d1 : Long) : Word;
  102. -66 : Function  SpreadColours(a0: p_ViewPort; d0,d1 : Long) : Word;
  103. -72 : Function  ColourDepth (a0: p_Screen) : Long;
  104. -78 : Function  ColourNumber (a0: p_Screen) : Long;
  105. -84 : Function  MakeAntique (a0: p_ViewPort; d0,d1 : Long) : Word;
  106. -90 : Function  MakeBW (a0: p_ViewPort; d0,d1 : Long) : Word;
  107. -96 : Function  CopyToBuffer (a0: p_ViewPort, a1 : Ptr ; d0,d1 : Long) : Word;
  108. -102: Function  CopyToColorMap (a0: p_ViewPort, a1 : Ptr ; d0,d1 : Long) : Word;
  109. -108: Function  HSVtoRGB (d0,d1,d2 : Word) : Word;
  110. -114: Procedure RGBtoHSV (a0 : p_HSV; d0: word)
  111. -120: Function  ColourRequester (a0 : p_ColourRequester) : Word;
  112.  
  113. -30 : Function  CheckColor(a0: p_ViewPort): Byte;
  114. -54 : Function  ExchangeColors (a0: p_ViewPort; d0,d1 : Long) : Word;
  115. -60 : Function  CopyColors (a0: p_ViewPort; d0,d1 : Long) : Word;
  116. -66 : Function  SpreadColors(a0: p_ViewPort; d0,d1 : Long) : Word;
  117. -72 : Function  ColorDepth (a0: p_Screen) : Long;
  118. -78 : Function  ColorNumber (a0: p_Screen) : Long;
  119. -120: Function  ColorRequester (a0 : p_ColourRequester) : Word;
  120. end;
  121.  
  122.  
  123.  
  124.  
  125. CONST
  126.  
  127. FLAG_HSV=1;
  128. FLAG_RGB=0;
  129. FLAG_HEX=2;
  130. FLAG_NORMAL=0;
  131. FLAG_NOWINDOWDEPTH=4;
  132. FLAG_NOWINDOWDRAG=8;
  133. FLAG_RMBTRAP=16;
  134.  
  135. CR_NOTHING=0;
  136. CR_REMAKE=1;
  137. CR_NEWMODE=2;
  138. CR_EXIT=3;
  139. CR_NEWCOLOUR=4;
  140. CR_UPDATECOLOUR=5;
  141.  
  142. CR_NEWCOLOR=4;
  143. CR_UPDATECOLOR=5;
  144.  
  145. MODE_COLOUR=0;
  146. MODE_COPY=1;
  147. MODE_EXCHG=2;
  148. MODE_SPREAD=3;
  149.  
  150. MODE_COLOR=0;
  151.  
  152. XC_VERSION=34;
  153.  
  154.  
  155.  
  156. CR_OK=0;
  157. CR_NoMemory=-1;
  158. CR_ViewPortused=-2;
  159. CR_NoWindow=-3;
  160.  
  161.  
  162.  
  163.  
  164.  
  165. {$endif}
  166.  
  167.  
  168.  
  169.  
  170.  
  171.  
  172.  
  173.  
  174.  
  175.  
  176.  
  177.